Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/oper_sys/fp/ifp_unix.lzh/ifp/fproot/math/arith/prod

Text File | 1987-02-01 | 162 b | 14 lines

(*
 * prod
 *
 * Compute product of sequence.
 *
 * E.g. <10 2 3 4> : prod -> 240
 *)

DEF prod AS
   IF ../logic/null THEN #1
   ELSE
      INSERT * END
   END;